home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Online / newscoaster / Rexx / before_sendPL.rexx < prev    next >
OS/2 REXX Batch file  |  2002-10-27  |  1KB  |  49 lines
  1. /* AmigaPL to ISO-8859-2 conversion for NewsCoaster */
  2. /* by Grzegorz Kraszewski (Krashan^BlaBla) <krashan@amiga.org.pl> */
  3. /* $VER: NewsCoasterPL 1.0 (30.4.2000) BLABLA PRODUCT */
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS "NEWSCOASTER"
  7.  
  8. IF ~Show("L","rexxsupport.library") THEN CALL AddLib("rexxsupport.library", 0, -30)
  9.  
  10. iso88592 = "±æê³óñ¶¼¿¡ÆÊ£ÑÓ¦¬¯"
  11. amigapl = "âêëîóïôúûÂÊËÎÓÏÔÚÛ"
  12.  
  13. folderpath = "NewsCoasterData:outgoing/"
  14.  
  15. lista = ShowDir(folderpath,"F",":")
  16. DO WHILE lista ~= ""
  17.   PARSE VAR lista filename ":" lista
  18.   IF Left(Upper(filename),5) = "NEWS_" THEN
  19.     DO
  20.       filename = folderpath || filename
  21.       newname = filename || ".BB"
  22.       IF Open(file1,filename,"R") THEN
  23.         DO
  24.           IF Open(file2,newname,"W") THEN
  25.             DO
  26.               DO WHILE ~Eof(file1)
  27.                 line = ReadLn(file1)
  28.                 IF Left(Upper(line),14) = "CONTENT-TYPE: " THEN
  29.                   DO
  30.                     line = Overlay("iso-8859-2",line,Pos("iso-8859-1",line,15))
  31.                     WriteLn(file2,line)
  32.                     WriteLn(file2,"X-CharsetConverter: apl2iso for NewsCoaster by Krashan^BlaBla <krashan@amiga.org.pl>")
  33.                   END
  34.                 ELSE
  35.                   DO
  36.                     line = Translate(line,iso88592,amigapl)
  37.                     WriteLn(file2,line)
  38.                   END
  39.               END
  40.               Close(file2)
  41.             END
  42.           Close(file1)
  43.           Delete(filename)
  44.           Rename(newname,filename)
  45.         END 
  46.     END
  47. END
  48.  
  49. EXIT